home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1481.dms / var1481.adf / Scripts / transdem.mc < prev    next >
Text File  |  1994-07-07  |  4KB  |  268 lines
  1. /***********************************************************************
  2. *
  3. *    This script is designed to show the difference in the 'trans'
  4. *    and 'filt' subelements of the 'color' element.  'trans'
  5. *    increases left to right, 'filt' increases top to bottom.
  6. *    What you should notice is that the spheres towards the bottom
  7. *    of the picture (higher 'filt') have a yellowish tint, which
  8. *    is stronger at the center of the sphere.  Since 'filt' is
  9. *    dependent upon the length of the ray as it passes through the
  10. *    sphere, and the sphere is thicker in the center than the edges,
  11. *    more 'filt' is applied.  The spheres are tinted yellow because
  12. *    the 'filt' is set to filter out blue, leaving red and green,
  13. *    which make yellow.  Notice that the spheres in the top row
  14. *    don't appear as three-dimensional as those on the bottom row.
  15. *
  16. **********************************************************************/
  17.  
  18. real sphere_rad = 1
  19. real sphere_space = sphere_rad*1.5*2
  20. real check_size = sphere_rad
  21.  
  22.  
  23. camera {
  24.     loc    <-sphere_rad*20, sphere_rad, sphere_rad>
  25.     target    <0, 0, 0>
  26.     hfov    2*atan((sphere_space*4+sphere_rad*2)/2/(sphere_rad*20))
  27. }
  28.  
  29. lamp {
  30.     loc    <-sphere_space*2, sphere_space*10, sphere_space*3>
  31. }
  32.  
  33.  
  34. color glass00 {
  35.     diff    <0, 0, 0>
  36.     trans    <1, 1, 1>
  37.     filt    <0, 0, 0>
  38.     index 1.2
  39. }
  40.  
  41. color glass01 {
  42.     diff    <0, 0, 0>
  43.     trans    <.75, .75, .75>
  44.     filt    <0, 0, 0>
  45.     index 1.2
  46. }
  47.  
  48. color glass02 {
  49.     diff    <0, 0, 0>
  50.     trans    <.5, .5, .5>
  51.     filt    <0, 0, 0>
  52.     index 1.2
  53. }
  54.  
  55. color glass03 {
  56.     diff    <0, 0, 0>
  57.     trans    <.25, .25, .25>
  58.     filt    <0, 0, 0>
  59.     index 1.2
  60. }
  61.  
  62. color glass10 {
  63.     diff    <0, 0, 0>
  64.     trans    <1, 1, 1>
  65.     filt    <0, 0, .1>
  66.     index 1.2
  67. }
  68.  
  69. color glass11 {
  70.     diff    <0, 0, 0>
  71.     trans    <.75, .75, .75>
  72.     filt    <0, 0, .1>
  73.     index 1.2
  74. }
  75.  
  76. color glass12 {
  77.     diff    <0, 0, 0>
  78.     trans    <.5, .5, .5>
  79.     filt    <0, 0, .1>
  80.     index 1.2
  81. }
  82.  
  83. color glass13 {
  84.     diff    <0, 0, 0>
  85.     trans    <.25, .25, .25>
  86.     filt    <0, 0, .1>
  87.     index 1.2
  88. }
  89.  
  90. color glass20 {
  91.     diff    <0, 0, 0>
  92.     trans    <1, 1, 1>
  93.     filt    <0, 0, .2>
  94.     index 1.2
  95. }
  96.  
  97. color glass21 {
  98.     diff    <0, 0, 0>
  99.     trans    <.75, .75, .75>
  100.     filt    <0, 0, .2>
  101.     index 1.2
  102. }
  103.  
  104. color glass22 {
  105.     diff    <0, 0, 0>
  106.     trans    <.5, .5, .5>
  107.     filt    <0, 0, .2>
  108.     index 1.2
  109. }
  110.  
  111. color glass23 {
  112.     diff    <0, 0, 0>
  113.     trans    <.25, .25, .25>
  114.     filt    <0, 0, .2>
  115.     index 1.2
  116. }
  117.  
  118. color glass30 {
  119.     diff    <0, 0, 0>
  120.     trans    <1, 1, 1>
  121.     filt    <0, 0, .3>
  122.     index 1.2
  123. }
  124.  
  125. color glass31 {
  126.     diff    <0, 0, 0>
  127.     trans    <.75, .75, .75>
  128.     filt    <0, 0, .3>
  129.     index 1.2
  130. }
  131.  
  132. color glass32 {
  133.     diff    <0, 0, 0>
  134.     trans    <.5, .5, .5>
  135.     filt    <0, 0, .3>
  136.     index 1.2
  137. }
  138.  
  139. color glass33 {
  140.     diff    <0, 0, 0>
  141.     trans    <.25, .25, .25>
  142.     filt    <0, 0, .3>
  143.     index 1.2
  144. }
  145.  
  146. sphere {
  147.     patt    glass00
  148.     loc    <0, 1.5*sphere_space, -1.5*sphere_space>
  149.     radius    sphere_rad
  150. }
  151.  
  152. sphere {
  153.     patt    glass01
  154.     loc    <0, 1.5*sphere_space, -.5*sphere_space>
  155.     radius    sphere_rad
  156. }
  157.  
  158. sphere {
  159.     patt    glass02
  160.     loc    <0, 1.5*sphere_space, .5*sphere_space>
  161.     radius    sphere_rad
  162. }
  163.  
  164. sphere {
  165.     patt    glass03
  166.     loc    <0, 1.5*sphere_space, 1.5*sphere_space>
  167.     radius    sphere_rad
  168. }
  169.  
  170. sphere {
  171.     patt    glass10
  172.     loc    <0, .5*sphere_space, -1.5*sphere_space>
  173.     radius    sphere_rad
  174. }
  175.  
  176. sphere {
  177.     patt    glass11
  178.     loc    <0, .5*sphere_space, -.5*sphere_space>
  179.     radius    sphere_rad
  180. }
  181.  
  182. sphere {
  183.     patt    glass12
  184.     loc    <0, .5*sphere_space, .5*sphere_space>
  185.     radius    sphere_rad
  186. }
  187.  
  188. sphere {
  189.     patt    glass13
  190.     loc    <0, .5*sphere_space, 1.5*sphere_space>
  191.     radius    sphere_rad
  192. }
  193.  
  194. sphere {
  195.     patt    glass20
  196.     loc    <0, -.5*sphere_space, -1.5*sphere_space>
  197.     radius    sphere_rad
  198. }
  199.  
  200. sphere {
  201.     patt    glass21
  202.     loc    <0, -.5*sphere_space, -.5*sphere_space>
  203.     radius    sphere_rad
  204. }
  205.  
  206. sphere {
  207.     patt    glass22
  208.     loc    <0, -.5*sphere_space, .5*sphere_space>
  209.     radius    sphere_rad
  210. }
  211.  
  212. sphere {
  213.     patt    glass23
  214.     loc    <0, -.5*sphere_space, 1.5*sphere_space>
  215.     radius    sphere_rad
  216. }
  217.  
  218. sphere {
  219.     patt    glass30
  220.     loc    <0, -1.5*sphere_space, -1.5*sphere_space>
  221.     radius    sphere_rad
  222. }
  223.  
  224. sphere {
  225.     patt    glass31
  226.     loc    <0, -1.5*sphere_space, -.5*sphere_space>
  227.     radius    sphere_rad
  228. }
  229.  
  230. sphere {
  231.     patt    glass32
  232.     loc    <0, -1.5*sphere_space, .5*sphere_space>
  233.     radius    sphere_rad
  234. }
  235.  
  236. sphere {
  237.     patt    glass33
  238.     loc    <0, -1.5*sphere_space, 1.5*sphere_space>
  239.     radius    sphere_rad
  240. }
  241.  
  242.  
  243. color red {
  244.     diff    <1, 0, 0>
  245.     srefl    0
  246. }
  247.  
  248. color white {
  249.     diff    <1, 1, 1>
  250.     srefl    0
  251. }
  252.  
  253. check checks {
  254.     patt1    red
  255.     patt2    white
  256.     xsize    check_size
  257.     ysize    check_size
  258.     zsize    check_size
  259. }
  260.  
  261.  
  262. plane {
  263.     loc    <sphere_rad*2, 0, 0>
  264.     v1    <0, 1, 0>
  265.     v2    <0, 0, 1>
  266.     patt    checks
  267. }
  268.